home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dbplus2 / qrymain.dfm / qrymain.txt
Encoding:
Text File  |  1996-09-15  |  2.9 KB  |  126 lines
  1. object Form1: TForm1
  2.   Left = 233
  3.   Top = 123
  4.   Width = 345
  5.   Height = 246
  6.   Caption = 'TDBLookupComboPlus Query Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnActivate = FormActivate
  13.   OnCreate = FormCreate
  14.   OnDestroy = FormDestroy
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 337
  20.     Height = 219
  21.     Align = alClient
  22.     TabOrder = 0
  23.     object Bevel1: TBevel
  24.       Left = 12
  25.       Top = 78
  26.       Width = 313
  27.       Height = 130
  28.     end
  29.     object Label1: TLabel
  30.       Left = 10
  31.       Top = 48
  32.       Width = 75
  33.       Height = 14
  34.       Caption = 'Vendor Name'
  35.       Font.Color = clBlack
  36.       Font.Height = -11
  37.       Font.Name = 'Arial'
  38.       Font.Style = [fsBold]
  39.       ParentFont = False
  40.     end
  41.     object RadioGroup1: TRadioGroup
  42.       Left = 89
  43.       Top = 15
  44.       Width = 223
  45.       Height = 30
  46.       Columns = 2
  47.       Ctl3D = True
  48.       Font.Color = clBlack
  49.       Font.Height = -11
  50.       Font.Name = 'Arial'
  51.       Font.Style = []
  52.       ItemIndex = 0
  53.       Items.Strings = (
  54.         'All'
  55.         'Preferred')
  56.       ParentCtl3D = False
  57.       ParentFont = False
  58.       TabOrder = 0
  59.       OnClick = RadioGroup1Click
  60.     end
  61.     object DBLookupComboPlus1: TDBLookupComboPlus
  62.       Left = 89
  63.       Top = 44
  64.       Width = 222
  65.       Height = 23
  66.       LookupSource = DataSource1
  67.       Style = csIncSearch
  68.       Font.Color = clBlack
  69.       Font.Height = -13
  70.       Font.Name = 'Arial'
  71.       Font.Style = [fsBold]
  72.       ParentFont = False
  73.       TabOrder = 1
  74.       OnPrepareList = DBLookupComboPlus1PrepareList
  75.     end
  76.     object Memo1: TMemo
  77.       Left = 15
  78.       Top = 81
  79.       Width = 307
  80.       Height = 123
  81.       Color = clBackground
  82.       Font.Color = clBlue
  83.       Font.Height = -11
  84.       Font.Name = 'Arial'
  85.       Font.Style = [fsBold]
  86.       Lines.Strings = (
  87.         'TQuery Populates the List (Demo #3)'
  88.         ''
  89.         '     This small project shows how to fill the dropdown '
  90.         'list with the result from a TQuery. Click a radio button '
  91.         'to show either a list of all vendors, or a list of only'
  92.         'perferred vendors.'
  93.         '     Refer to the complete notes on this demo in the '
  94.         'documentation file. (PLUS.WRI - Demo #3).')
  95.       ParentFont = False
  96.       TabOrder = 2
  97.     end
  98.   end
  99.   object Query1: TQuery
  100.     DatabaseName = 'DBDEMOS'
  101.     SQL.Strings = (
  102.       'SELECT VENDORNAME FROM VENDORS '
  103.       'WHERE PREFERRED = :ASELECTION OR '
  104.       '             PREFERRED =:BSELECTION')
  105.     Params.Data = {
  106.       010002000A4153454C454354494F4E00050200010000010A4253454C45435449
  107.       4F4E0005020000000001}
  108.     Left = 2
  109.   end
  110.   object Table1: TTable
  111.     TableType = ttParadox
  112.     Left = 274
  113.   end
  114.   object BatchMove1: TBatchMove
  115.     Destination = Table1
  116.     Mappings.Strings = (
  117.       'VendorName=VendorName')
  118.     Source = Query1
  119.     Left = 32
  120.   end
  121.   object DataSource1: TDataSource
  122.     DataSet = Table1
  123.     Left = 306
  124.   end
  125. end
  126.